home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed41.d64 / subtraction 2b (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  141 lines
  1. 50 POKE53280,0:POKE53281,0:POKE53272,23:Y=1:K=0:W=0:C=0:R=0
  2. 100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"         [199][201][204][204][201][193][206]'[211] [194][193][211][201][195] [205][193][212][200]           [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB291:GOSUB240
  7. 125 PRINT"             [211][213][194][212][210][193][195][212][201][207][206]                [146]";
  8. 130 PRINT"[159]                                        [146]";:GOSUB291:GOSUB240
  9. 135 PRINT"              [204][197][214][197][204]  2[194]                 [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]"
  12. 150 GOSUB 291:GOSUB460
  13. 155 PRINT"[147]":GOSUB291
  14. 160 PRINT"[147][153] [201]N THIS UNIT WE PRACTISE SUBTRACTION "
  15. 162 PRINT" OF MINUENDS FROM 11[153] TO 15[153] AND
  16. 164 [153]" SUBTRAHENDS FROM 0PRINT TO 5PRINT."
  17. 166 [153]" (null)OU WILL BE PLAYING AGAINST THE CLOCK   SO DON'T WASTE ANY TIME.
  18. 170 PRINT""
  19. 175 GOSUB292:GOSUB460
  20. 180 PRINT"[147][158] [193]ND AWAY WE GO.............."
  21. 185 GOSUB291:GOSUB200:GOSUB290
  22. 190 PRINT"[147]":GOSUB291
  23. 195 TI$="000000":GOTO500
  24. 200 REM <YES> SOUND
  25. 202 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  26. 204 POKE54296,15:POKE54277,42:POKE54278,250
  27. 206 POKE54276,23:POKE54273,23:POKE54272,191
  28. 208 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO250:NEXT
  29. 210 POKE54296,0:RETURN
  30. 220 REM <NO> SOUND
  31. 222 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  32. 224 POKE54296,15:POKE54277,18:POKE54278,242
  33. 226 POKE54276,33:POKE54273,4:POKE54272,48
  34. 228 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  35. 230 POKE54296,0:RETURN
  36. 240 REM <BLIP> SOUND
  37. 242 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  38. 244 POKE54296,6:POKE54277,42:POKE54278,250
  39. 246 POKE54276,23:POKE54273,23:POKE54272,191
  40. 248 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  41. 250 POKE54296,0:RETURN
  42. 260 REM <DING> SOUND
  43. 262 SS=54272:POKE54296,15:POKESS,50:POKESS+1,35:POKESS+2,0:POKESS+3,8:POKESS+5,0
  44. 264 POKESS+6,10*16+9:POKESS+4,14:POKESS+4,65:FORQQ=1TO20:POKESS+4,64:RETURN
  45. 270 REM <VERY WRONG> SOUND
  46. 272 SS=54272:POKE54296,15:POKESS,32:POKESS+1,3:POKESS+2,128:POKESS+3,13
  47. 274 POKESS+5,4*16+0:POKESS+6,10*16+8
  48. 276 POKESS+24,15:POKESS+4,65:FORQQ=1TO500:NEXT:POKESS+4,64:RETURN
  49. 290 FORTM=1TO600:NEXT:RETURN
  50. 291 FORTM=1TO1000:NEXT:RETURN
  51. 292 FORTM=1TO2000:NEXT:RETURN
  52. 293 FORTM=1TO3000:NEXT:RETURN
  53. 300 PRINT"[147]":GOSUB290
  54. 302 PRINT"[155] [197]XERCISE 2[194]                    [201]TEM"Y
  55. 305 RETURN
  56. 310 PRINT"[159]            ";A$"+[159]";B$"="Z$
  57. 350 N=TI/60
  58. 355 N=INT(N+.5)
  59. 360 PRINT"[154]";N"SECONDS[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  60. 365 RETURN
  61. 400 POKE53280,13:GOSUB290
  62. 402 PRINT"[153]                [195][207][210][210][197][195][212]!                [146]":GOSUB200:GOSUB292
  63. 404 PRINT"[145][145]                                        "
  64. 410 POKE53280,0:RETURN
  65. 420 POKE53280,2:GOSUB220:GOSUB291
  66. 423 PRINT"[150]                   [206][207]!                  [146]":GOSUB292
  67. 425 PRINT"[145][145]                                        [145][145]"
  68. 440 PRINT"[147]":GOSUB290:POKE53280,13
  69. 445 PRINT"         >>>> [153]";A$" - [153]";B$" =[153] ";C$" <<<<"
  70. 450 GOSUB260:GOSUB293:GOSUB460:POKE53280,0:RETURN
  71. 460 GOSUB291:GOSUB260
  72. 462 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE       [146]"
  73. 464 GETR$:IFR$<>CHR$(32)THEN464
  74. 466 PRINT"[145][145]                                        ":RETURN
  75. 500 FORG=1TO30
  76. 505 FORI=1TO3:GOSUB300:GOSUB350:Y=Y+1:P=0:POKE53280,0
  77. 510 READA$,B$,C$
  78. 520 PRINT"              ";A$" - ";B$" = ":GOSUB260
  79. 530 PRINT"[158][145] ";:INPUTZ$
  80. 540 IFZ$=C$THENGOSUB400:C=C+1:GOTO550
  81. 545 GOSUB420:W=W+1:
  82. 550 NEXT G
  83. 599 :
  84. 600 PRINT"[147]      [211][213][194][212][210][193][195][212][201][207][206][160]2[194]  [211][195][207][210][197][160][194][207][193][210][196]       [146]":GOSUB291
  85. 605 L=C/.3:L=INT(L+.5)
  86. 610 PRINT"[158]          [217]OUR [211][195][207][210][197] ...";L"%":GOSUB260:GOSUB292
  87. 613 PRINT"[158]          [217]OUR [212][201][205][197] ....";N"SECONDS":GOSUB260:GOSUB292
  88. 615 PRINT"[153]          [195]ORRECT ......"C:GOSUB200:GOSUB292
  89. 620 PRINT"[150]          [194]LOOPERS ....."W:GOSUB270:GOSUB292
  90. 622 IFN=<210THENPRINT"          [217]OU ARE [198][193][211][212]!":GOSUB260:GOSUB292:GOTO625
  91. 623 IFN=<300THENPRINT"          [195]AN YOU GO FASTER?":GOSUB260:GOSUB292:GOTO625
  92. 624 PRINT"          [201]'M SURE YOU CAN GO FASTER.":GOSUB292
  93. 625 IFC=25THENPRINT"              [197][216][195][197][204][204][197][206][212] [215][207][210][203]!           [146]"
  94. 630 IFC=25THENGOSUB200:GOSUB292:GOTO660
  95. 635 IFC=>22THENPRINT"               [199]OOD [215]ORK [146]"
  96. 640 IFC=>22THENGOSUB200:GOSUB292:GOTO660
  97. 650 GOSUB292:PRINT" >>>>> [217]OU NEED MORE PRACTICE.
  98. 655 [153]" >>>>> (null)LEASE PLAY THIS GAME AGAIN."
  99. 660 [141]460
  100. 670 [153]"SYSLOAD  (null)OU HAVE A CHOICE:                    ":[141]292
  101. 672 [153]"  (null)RESS  (null) WAIT TO PLAY GAME 2PEEK AGAIN.
  102. 674 PRINT"  [208]RESS  [205] [146] TO RETURN TO DISK MENU,
  103. 676 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]676
  104. 678 [139]R$[178]"P"[167] [140]:[137]50
  105. 680 [139]R$[178]"(null)"[167] [140]:[137]50
  106. 682 [153]"LOAD (null)ETURNING TO THE DISK MENU
  107. 684 LOAD"MENU",8
  108. 686 RUN
  109. 688 END
  110. 1000 DATA "12","0","12"
  111. 1005 DATA "15","1","14"
  112. 1010 DATA "14","4","10"
  113. 1015 DATA "11","4","7"
  114. 1020 DATA "13","4","9"
  115. 1025 DATA "14","5","9"
  116. 1030 DATA "11","1","10"
  117. 1035 DATA "14","0","14"
  118. 1040 DATA "15","5","10"
  119. 1045 DATA "12","3","9"
  120. 1050 DATA "11","3","8"
  121. 1055 DATA "13","3","10"
  122. 1060 DATA "11","5","6"
  123. 1065 DATA "15","4","11"
  124. 1070 DATA "11","0","11"
  125. 1075 DATA "11","2","9"
  126. 1080 DATA "12","2","10"
  127. 1085 DATA "13","2","11"
  128. 1090 DATA "15","2","13"
  129. 1095 DATA "14","2","12"
  130. 1100 DATA "12","5","7"
  131. 1105 DATA "13","1","12"
  132. 1110 DATA "12","1","11"
  133. 1115 DATA "12","4","8"
  134. 1120 DATA "15","3","12"
  135. 1130 DATA "12","0","12"
  136. 1135 DATA "13","5","8"
  137. 1140 DATA "15","0","15"
  138. 1145 DATA "14","3","11"
  139. 1150 DATA "14","1","13"
  140. 2000 REM WHC 92 07 31
  141.